home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / reqtlsdv.lha / ReqTools / Glue / M2Amiga / m2amiga_glue.lha / ReqToolsSupport.def < prev    next >
Text File  |  1992-08-17  |  2KB  |  52 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    ReqToolsSupport.def
  3.   :Contents.   Umgehung von A4-Problem bei ReqTools-Funktionen
  4.   :Author.     Frank Lömker
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V4.0d
  8.   :Imports.    ReqTools [kai]
  9.   :History.    V1.0, [Frank Lömker] 24-Feb-92
  10.   :Bugs.       keine bekannt
  11. ---------------------------------------------------------------------------*)
  12.  
  13. DEFINITION MODULE ReqToolsSupport;
  14.  
  15. FROM UtilityD IMPORT TagItemPtr;
  16. FROM ReqTools IMPORT ReqInfoPtr;
  17. FROM SYSTEM IMPORT ASSEMBLE,ADDRESS;
  18.  
  19. (* Diese Prozeduren sind identisch zu denen aus ReqTools.def, benutzen aber
  20.    nicht das Register A4, so das der Aufruf von Modula aus möglich ist.
  21.  
  22.    This procedures are identical to these from ReqTools.def, but they do not
  23.    use register A4, so they can be used from Modula. *)
  24.  
  25. PROCEDURE EZRequestA (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  26.                       reqInfo{11}: ReqInfoPtr;
  27.                       argarray{2}: ADDRESS;
  28.                       tagList{8}: TagItemPtr): LONGINT;
  29. PROCEDURE EZRequestTags (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  30.                          reqInfo{11}: ReqInfoPtr;
  31.                          argarray{2}: ADDRESS;
  32.                          tag1{8}: TagItemPtr):LONGINT;
  33. PROCEDURE EZRequest (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  34.                      reqInfo{11}: ReqInfoPtr;
  35.                      tagList{8}: TagItemPtr;
  36.                      argarray{2}: ADDRESS (*LONGINT*)): LONGINT;
  37. (* Without result.... *)
  38. PROCEDURE vEZRequestA (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  39.                        reqInfo{11}: ReqInfoPtr;
  40.                        argarray{2}: ADDRESS;
  41.                        tagList{8}: TagItemPtr);
  42. PROCEDURE vEZRequestTags (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  43.                           reqInfo{11}: ReqInfoPtr;
  44.                           argarray{2}: ADDRESS;
  45.                           tag1{8}: TagItemPtr);
  46. PROCEDURE vEZRequest (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  47.                       reqInfo{11}: ReqInfoPtr;
  48.                       tagList{8}: TagItemPtr;
  49.                       argarray{2}: ADDRESS (*LONGINT*));
  50.  
  51. END ReqToolsSupport.
  52.